home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / Dashboard2.lha / Dashboard2 / AmiTCP / bin / GetStatus < prev    next >
Text File  |  1998-03-27  |  529b  |  25 lines
  1. /*
  2. $VER: GetStatus 2.0 (26.3.98)
  3.  
  4. Get status from U-Net and display if information has changed
  5. */
  6.  
  7. options results
  8. address command
  9.  
  10. /* ;;;Change these if you need to */
  11. StatusFile = 'S:U-Net.Status'
  12. Fingercmd  = 'finger'
  13. Window     = 'CON:0/0/615/200/Status/AUTO/CLOSE/WAIT/INACTIVE'
  14. Server     = 'status@u-net.net'
  15. ;;;
  16. /* ;;;Don't change these */
  17. OldSize = subword(statef(StatusFile),2,1)
  18. FingerCmd Server '>'StatusFile
  19. NewSize = subword(statef(StatusFile),2,1)
  20.  
  21. if NewSize ~= OldSize then 'Type' StatusFile '>'Window
  22. ;;;
  23. exit
  24.  
  25.